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EDTSSCRCOMCUR = compute cursor position 16-Sep-1984 01:30:17 AX-11 Bliss-32 V4.0-74 Page 1 
’ ’ 12-80 8=}3Re 94:30:38 EDT SREISERCOMCUR BLT, . all 
*EDTSSCRCOMCUR = compute cursor position’ 
EDTSSCRCOMCU ! Compute cursor position 
te = ‘v04-000' ' File: SCRCOMCUR.BLI Edit: JBS1010 
= 


BEGIN 


RRA AREER EAAAARAAAAAAAAAAEAAEE EEE A EATER EAA AAA AAAAAEAEEAARARERAAAAEE AEE 


'@ 

COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORD OF CH LICEN H_THE 


segessssse 
-o wm ~ 4 
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3 ; ; 
3 & : 
Ps 5 ° 
; § 1 ° 
; 1 ‘ 
; 8 1 * ; 
3 1 7 P 
: 10 1 * ; 
| i 12 : 
Py ® ° 
3 ig ig 1 * ; 
s 1% 014 1 !* ANCE WITH E TERM SU ICENSE D WIT * H 
; 15 15 1 !* INCLUSION HE ABOVE COPYRIGHT NOTICE. THIS S$ ARE OR AN THER * ‘ 
3 16 1 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 17 1 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
H + Bots : :* TRANSFERRED. * : 
3 '@ ® ° 
FH 0 020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * > 
; 1 1 1! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 4 
3 ; 88 ; : :* CORPORATION. ° : 
; es : 
; 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® : 
: $8 0057 | is : 
° ® ® é 
: 8 00 & 1 PITTIILITILILILL LLL LLL LLL LLL LLL LLL LLL LLL LLL. ° 
5 9 0029 1! 3 
3 0 0030 1 PF 
; 1 0031 1 !++¢ $ 
g 2 itt 1! FACILITY: EDT -- The DEC Standard Editor 3 
3 3 0033 1! 3 
H 4 0034 1 ! ABSTRACT: : 
; 5 0035 1! : 
3 $ Ones : : This module computes the current cursor position. : 
3 38 S34 , : ENVIRONMENT: Runs at any access mode - AST reentrant : 
: re BRe9 ! AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 : 
3 $§ B26 1 ! MODIFIED BY: $ 
; «4 0465 1! : 
: «6446 044 1 ! 1-001 - Original. DJS 12-Feb-1981. This module was created b : 
: «645 > 2% extracting the routine EDT$$SC_CPUCSPOS from module SCREEN. 3 
3; 646 0066 1! 1-008 = Regularize headers. JBS 13-Mar-1 3 
3; 67 0047 1! 1- - Rewrite for new screen logic. JBS_12-0ct-1982 3 
: 48 Boes 1 ! 1-004 - Fix a couple of minor 7 JBS 13-Oct-19 3 
5 49 1 ! 1-005 = Fix call to EDTSSFMT_CHWID. JBS 15-Oct-19 : 
; 50 050 1! 1- - Fix problem with SHL. JBS 27-Oct-19 3 
s 37 51 1! 1- - Fix the cursor position in NOTRUNCATE mode. JBS 09-Nov-1982 | 3 
; 6 26 1! 1- 4 - Fix the cursor posit tening again. JBS 10-Nov-198 3 
2 55 1! 1- - Change the handling of EDTS$G_SHF. JBS Venpegel® 2 : 
; ¢¢ bee ' } 1-010 - Correct tab at front of continued line. JBS 15-Dec-1982 | : 
; 56 56 1 : 
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COMCUR = compute cursor positio 16-Sep-1984 01:30:17 Ax-11 iss- 4.0-74 
~ compute curser position 12: > 382 94:30:38 Bi eecoa vag 


CPUCSPOS Sep-1 
ZSBTTL “EDTSSSC_CPUCSPOS = compute cursor position’ 
aes, ane EDTSSSC_CPUCSPOS ( 


EDT. SRCJSCRCOMCUR.BLI; 


! Compute cursor position 

!' Where to return Line number 
COLUMN ! Where to return column number 
) : NOVALUE = 


'e¢ 
FUNCTIONAL DESCRIPTION: 


This routine computes the current cursor gripe returning the Line 
and column numbers in the ref parameters LINE and COLUMN. 


FORMAL PARAMETERS: 

LINE Cursor's relative Line number 
COLUMN Cursor’s column number 
IMPLICIT INPUTS: 


EDT$$G_SHF 
EDT$$G_TI_WID 
T$ RON 


; 
i 

i 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

EDTSSA_LM_PIR 
; 

i IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 

i SIDE EFFECTS: 
NONE 

; 


BEGIN 


EXTERNAL ROUTINE 
EDTSSFMT_CHWID; 


Compute the width of a character 


eaten, 

EDTSSG_SHF, ! The number of columns shifted. 
EDTSS$G_TI_WID, ! Width of terminal Line. 
EDT$$G_TRON, ' Truncate or wrap long Lines. 
EDTSST_LN_BUF, ' Current Line buffer. 
EDTSSA_LN_PTR, ' Current character pointer. 
EDTSSA_LN_END; ! End of Line 

LOCAL 
CP, ! Character pointer into the current record 


a —_ —y 


N 1 
wore = compute cursor position 19-3 


CPUCSPOS = compute cursor position 
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EDT. SRCJSCRCOMCUR.BLI; (3) 


v0vo 
+45 


EDTS 
EDTS 9 

: 148 7 § LIN, ' Relative Line number (first line = 0) 

3; «149 7 COL ! Column number (first column = 0), unshifted 

; 150 720 CHAR, ' Current character 

s 33) 721 CHAR _WID ! Width of the current character 

: ; § 4 § LINE “DONE; ' 1 = we are done with this Line 

: 154 724 LIN = 0; 

; 155 725 COL = iF 

Be $ 7 $ CP = EDISST_LN_ BUF; 

; 12f 4 i LINE_DONE = 0; 

: 159 729 WHILE ((.CP LSSA .EDTSSA_LN_PTR) AND ( NOT .LINE_DONE)) DO 

: 160 730 BEGIN 

3; 161 731 CHAR = CHSRCHAR_A (CP); 

; 166 4 ¢ CHAR_WID = EDTSSFMT_CHWID (.CHAR, .COL); 

; 164 0734 4 IF ((.COL + .CHAR_WID) LEQ (.EDTS$G_TI_WID + .EDTSS$G_SHF)) 

3: 165 0735 THEN 

; 166 07 $ '¢ 

5 4 e4 4 i The character fits on this Line, count it and go on to the next. 

: 169 07 st COL = .COL + .CHAR_WID 

: 170 740 ELSE 

s ii 0741 ! 

; \7¢ 3544 ! The character does not fit on this Line. 

y- Sr 074 != 

; «174 0744 

; 175 0745 IF _.EDT$$G_TRUN 

s 1% Bree 

: 177 747 & BEGIN 

; 178 0748 4 !4 

3 +4 1544 ; : In TRUNCATE mode, just position to the Last column and terminate. 

: 181 b784 4 COL = .EDTSSG_TI_WID + .EDTS$$G_SHF - 1; 

: 136 O76 4 LINE_DONE = 1; 

3; 3 0753 4 

3: «184 0754 3 ELSE 

s 185 0755 4 BEGIN 

3; «186 756 4 !+ 

3 +4 se 2 : Im NOTRUNCATE mode, try fitting it on the next Line. Don't produce too many Lines. 

: 189 759 4 LIN = .LIN + 1; 

; 190 9760 4 * COL = .EDTSSG_SHF + 2; 

; 136 166 4 | We can't use .CHAR_WID in the next statement because the width of a tab may be 

3 13? oe ? : different on the new Line since it is in a new position. 

: 195 765 4 

: 196 te 2 IF (.LIN GEQ 255) THEN LINE_DONE = 1 ELSE COL = .COL + EDTSSFMT_CHWID (.CHAR, .COL); 

; 198 26 END; 

: 200 0770 END; 

; 201 771 

3 4 oe '¢ : J 

; 20 77 ! Im NOTRUNCATE mode, make sure the current character will fit on this Line. If it will not, | 

3; 204 0774 ! move the cursor to the beginning of the next Line. | 
| 
} 
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RCOMCUR EDTS eCoecve = compute cursor position 16-Sep-1984 0: AX-11 Bliss-32 V4.0-74 i 
fbe2000 ED Tse SC_CPUCSPOS = compute curser position 14-Sep- 1984 93: 34 3 EDT LSREDSER RCOMCUR.BLI; — (33 
; o8 775 l- 

3 4 1 If (« NOT .EDTS$G_TRUN) AND ( NOT .LINE_DONE) AND (.EDTSS$A_LN_PTR NEQA .EDTSS$A_LN_END)) 
: 509 ie EN BEGIN | 
; 19 780 CHAR = CHSRCHAR_A (CP); | 
; } f 1 CHAR_WID = EDTSSEMI _CHWID (.CHAR, .COL); 
: ig 7 : 4 IF ((.COL * .CHAR_WID) GTR (.EDTS$G_TI_WID + .EDTS$S$G_SHF)) 
> 216 784 3 THEN 
: 215 785 4 BEGIN 
3 18 786 4 LIN = .LIN + 1; 
; , { 4 COL = .EDTSSG_SHF + 2; 
: i 789 ‘ 
BRP = 
; : 079¢ LINE = .LIN; 
3; de 079 COLUMN = MAX (0, MIN (.COL = .EDTS$G_SHF, .EDTS$G_TI_WID - 1); 
: 224 0794 1 END; ! of routine EDT$$SC_CPUCSPOS 
-TITLE EDTSSCRCOMCUR EDTS$SSCRCOMCUR - compute cursor po 
Py n 
-IDENT \V04-000\ 
.EXTRN EDTSSFMT_CHWID, EDT$$G_SHF 
-EXTRN EDT$$G_TI -W1D, EDT$$G_TRUN 
.EXTRN EDTSST-LN-BUF, EDTS$$A_LN_PTR 
-EXTRN EDTSSA“LN-END- 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY EDTSS$SC_CPUCSPOS, Save R2,R3,R4,R5,R6,R7,- ; 0663 
R8,RI,RTO,R11 : 
000000006 00 9€ 00002 MOVAB EDT$$G_TI WID, R11 : 
5A 000000006 00 9€E 00009 MOVAB EDTS$S$G~SHF, R10 : 
000000006 00 9€ 9019 MOVAB EDTSSFAT_CHWID, R9 : 
8 04 0001 CLRL =~ LLIN + 0724 
2 D4 00019 CLRL = COL : 0725 
55 000000006 00 9E 0018 MOVAB EDTS$S$T_LN_BUF, CP : 0726 
54 D4 000 CLRL —LINE : O79? 
000000006 00 5 D1 00024 18 CHPL CP, EDT$$A_LN_PTR : 0729 
2 ie 00 B BGEQU 6$ : 
4F 4 D BLBS = LINE_DONE, 6$ : 
57 5 9a 000 MOVZBL (CP)4, CHAR : 0731 
5 DD 000 PUSHL COL : 0732 
DD 000 PUSHL CHAR ; 
69 : FB 00 CALLS 2, EDTSSFMT_CHWID : 
56 DO 0003A MOVL RO, CHAR_WID F 
52 6 C1 6 p ADDL3 CHAR WID> COL, R3 > 0734 
51 6A DO 0004 MOVL.  €EDT$SG_SHF, Ri ; 
68 1 (C1 44 ADDL3 1, EDT$$G_TI_WID, RO : 
0 3 D1 48 CMPL = R3, RO : 
52 tS 90ep Reo2  EHAR.WID, COL : 0739 
23 ‘9 20 BRB 14 : 
| 
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215 bytes, Routine Base: 


; Routine Size: 


!<BLF /PAGE> 


dD 13 
VOLO EDTSESC EPUCSPOS “= compute cursor position  Teasebat9ne $o:se:a5 EBT 'SRESSERcomcUR oc rs alt { 
: 39 O38 } END ! of module EDTSSCRCOMCUR 
: 7 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: -EDTSCODE 215 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ecaaaaen §yEQ0l§ Seececce Pages Processing 
File Total Loaded Percent Mapped Time 
Stitt EDT.SRCJEDT.L32;1 377 0 0 40 00:00. ¢ 
55$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
SS Eee See PRE AR. APT EL SE RP OTRALEROEEAL, OML, SEDI EL RCE CSE LOTTE RCO MSRCS:SCRCOMCUR.BLI/UPDATE=(ENHS$:S 


0 data bytes 


Lexenes/CPU-Rin: 
Memor 1 ut 95 pages 
Comp i ai Complete 
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